#!/usr/bin/perl
#
use strict;
use warnings;


print "Por favor digite um numero\n";
my $valor = <STDIN>;
print "O valor inserido foi \t $valor\n";
